﻿Public Class FormMain
    Private id As Integer, usuario As String, senha As String

    Public Sub SetUsuario(ByVal id As Integer, ByVal usuario As String, ByVal senha As String)

        Me.id = id
        Me.usuario = usuario
        Me.senha = senha

    End Sub

    Private Sub FormMain_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Application.Exit()
    End Sub

    Private Sub btnClientes_Click(sender As System.Object, e As System.EventArgs) Handles btnClientes.Click
        Dim formClientes As New Clientes()
        formClientes.Show()
    End Sub

    Private Sub btnAnimais_Click(sender As System.Object, e As System.EventArgs) Handles btnAnimais.Click
        Dim formAnimais As New Animais()
        formAnimais.Show()
    End Sub

    Private Sub btnRacas_Click(sender As System.Object, e As System.EventArgs) Handles btnRacas.Click
        Dim formRacas As New Racas()
        formRacas.Show()
    End Sub

    Private Sub btnCadServicos_Click(sender As System.Object, e As System.EventArgs) Handles btnCadServicos.Click
        Dim formCadServicos As New CadServicos()
        formCadServicos.Show()
    End Sub

    Private Sub btnUsuarios_Click(sender As System.Object, e As System.EventArgs) Handles btnUsuarios.Click
        Dim formUsuarios As New Usuarios()
        formUsuarios.Show()
    End Sub

    Private Sub FormMain_Shown(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
        lbUsuLogadoTxt.Text = usuario
    End Sub

    Private Sub btnServicos_Click(sender As System.Object, e As System.EventArgs) Handles btnServicos.Click
        Dim formServicos As New Servicos()
        formServicos.Show()
    End Sub
End Class